inherited fmMarketing_AddEditUrl: TfmMarketing_AddEditUrl
  Left = 474
  Top = 177
  Width = 506
  Height = 727
  Caption = 'fmMarketing_AddEditUrl'
  Constraints.MinHeight = 727
  Constraints.MinWidth = 506
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [0]
    Left = 16
    Top = 52
    Width = 132
    Height = 13
    Caption = 'WWW '#1072#1076#1088#1077#1089' '#1089#1090#1088#1072#1085#1080#1094#1099' (*)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl2: TLabel [1]
    Left = 16
    Top = 111
    Width = 179
    Height = 13
    Caption = #1050' '#1082#1072#1082#1086#1081' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080' '#1086#1090#1085#1086#1089#1080#1090#1089#1103' (*)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl6: TLabel [2]
    Left = 16
    Top = 220
    Width = 208
    Height = 13
    Caption = '(*) - '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1077' '#1076#1083#1103' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1103' '#1087#1086#1083#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl4: TLabel [3]
    Left = 16
    Top = 168
    Width = 142
    Height = 13
    Caption = #1053#1072#1096#1077' '#1085#1072#1079#1074#1072#1085#1080#1077' '#1085#1072' '#1089#1090#1088#1072#1085#1080#1094#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lbl3: TLabel [4]
    Left = 16
    Top = 444
    Width = 67
    Height = 13
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 666
    Width = 498
  end
  inherited Panel1: TPanel
    Width = 498
    inherited BitBtn1: TBitBtn
      Left = 328
    end
    inherited BitBtn2: TBitBtn
      Left = 416
    end
  end
  object cxDBHyperLinkEdit1: TcxDBHyperLinkEdit [7]
    Left = 16
    Top = 72
    DataBinding.DataField = 'MSUURL'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    Width = 465
  end
  object eName: TcxDBTextEdit [8]
    Left = 16
    Top = 187
    DataBinding.DataField = 'MSUNAMEORG'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 3
    Width = 305
  end
  object cxDBMemo1: TcxDBMemo [9]
    Left = 16
    Top = 464
    DataBinding.DataField = 'MSUNOTE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 4
    Height = 193
    Width = 465
  end
  object lcbType: TcxDBLookupComboBox [10]
    Left = 14
    Top = 134
    DataBinding.DataField = 'MSUSDIDORG'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.DropDownListStyle = lsEditList
    Properties.DropDownRows = 15
    Properties.KeyFieldNames = 'SDID'
    Properties.ListColumns = <
      item
        FieldName = 'SDNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsSD
    Properties.MaxLength = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.Shadow = False
    Style.IsFontAssigned = True
    TabOrder = 5
    Width = 307
  end
  object grp1: TGroupBox [11]
    Left = 16
    Top = 240
    Width = 465
    Height = 193
    Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1103
    TabOrder = 6
    object lbl5: TLabel
      Left = 16
      Top = 20
      Width = 62
      Height = 13
      Caption = #1072#1076#1088#1077#1089' '#1089#1072#1081#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl7: TLabel
      Left = 128
      Top = 20
      Width = 78
      Height = 13
      Caption = #1086#1087#1080#1089#1072#1085#1080#1077' '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl8: TLabel
      Left = 240
      Top = 20
      Width = 26
      Height = 13
      Caption = #1092#1086#1090#1086
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl9: TLabel
      Left = 352
      Top = 20
      Width = 52
      Height = 13
      Caption = #1090#1077#1083#1077#1092#1086#1085#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl10: TLabel
      Left = 16
      Top = 76
      Width = 73
      Height = 13
      Caption = #1088#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl11: TLabel
      Left = 128
      Top = 76
      Width = 65
      Height = 13
      Caption = #1072#1076#1088#1077#1089' '#1087#1086#1095#1090#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl13: TLabel
      Left = 240
      Top = 76
      Width = 76
      Height = 13
      Caption = #1054#1073#1097'. '#1082#1086#1083'. '#1086#1090#1079'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl14: TLabel
      Left = 352
      Top = 76
      Width = 72
      Height = 13
      Caption = #1050#1086#1083'. '#1086#1090#1088'. '#1086#1090#1079'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl15: TLabel
      Left = 16
      Top = 132
      Width = 122
      Height = 13
      Caption = #1076#1072#1090#1072' '#1087#1086#1083#1077#1076#1085#1077#1075#1086' '#1086#1090#1079#1099#1074#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbl16: TLabel
      Left = 168
      Top = 132
      Width = 159
      Height = 13
      Caption = #1076#1072#1090#1072' '#1087#1086#1083#1077#1076#1085#1077#1075#1086' '#1086#1090#1088#1080#1094'. '#1086#1090#1079#1099#1074#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBLookupComboBox1: TcxDBLookupComboBox
      Left = 14
      Top = 39
      DataBinding.DataField = 'MSUINF_ADR'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 107
    end
    object cxDBLookupComboBox2: TcxDBLookupComboBox
      Left = 126
      Top = 39
      DataBinding.DataField = 'MSUINF_DESCR'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 107
    end
    object cxDBLookupComboBox3: TcxDBLookupComboBox
      Left = 238
      Top = 39
      DataBinding.DataField = 'MSUINF_FOTO'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 2
      Width = 107
    end
    object cxDBLookupComboBox4: TcxDBLookupComboBox
      Left = 350
      Top = 39
      DataBinding.DataField = 'MSUINF_TEL'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 3
      Width = 107
    end
    object cxDBLookupComboBox5: TcxDBLookupComboBox
      Left = 14
      Top = 95
      DataBinding.DataField = 'MSUINF_DIR'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 4
      Width = 107
    end
    object cxDBLookupComboBox6: TcxDBLookupComboBox
      Left = 126
      Top = 95
      DataBinding.DataField = 'MSUINF_MAIL'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 4
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = ds1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 5
      Width = 107
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 240
      Top = 95
      DataBinding.DataField = 'MSUINF_KOLOTZ'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 6
      Width = 105
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 352
      Top = 95
      DataBinding.DataField = 'MSUINF_KOLNEGATIV'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 7
      Width = 105
    end
    object eRSDATE: TcxDBDateEdit
      Left = 16
      Top = 150
      DataBinding.DataField = 'MSUINF_LASTDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 8
      Width = 137
    end
    object cxDBDateEdit1: TcxDBDateEdit
      Left = 168
      Top = 150
      DataBinding.DataField = 'MSUINF_LASTNEGATIVDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 9
      Width = 137
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qUrl
    Left = 216
    Top = 8
  end
  object qUrl: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT msu.*'
      'FROM MS_URL mSU'
      'WHERE msu.MSUISDELETE IS NULL'
      'AND MSU.MSID = :MSID')
    GeneratorField.Field = 'MSUID'
    GeneratorField.Generator = 'GEN_MS_URL_ID'
    Left = 296
    Top = 29
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MSID'
        ParamType = ptUnknown
      end>
    object intgrfldq1MSUID: TIntegerField
      FieldName = 'MSUID'
      Origin = '"MS_URL"."MSUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object intgrfldq1MSID: TIntegerField
      FieldName = 'MSID'
      Origin = '"MS_URL"."MSID"'
    end
    object qUrlMSUURL: TIBStringField
      FieldName = 'MSUURL'
      Origin = '"MS_URL"."MSUURL"'
      Size = 2048
    end
    object intgrfldq1MSUSDIDORG: TIntegerField
      FieldName = 'MSUSDIDORG'
      Origin = '"MS_URL"."MSUSDIDORG"'
    end
    object qUrlMSUNAMEORG: TIBStringField
      FieldName = 'MSUNAMEORG'
      Origin = '"MS_URL"."MSUNAMEORG"'
      Size = 255
    end
    object intgrfldq1MSUINF_ADR: TIntegerField
      FieldName = 'MSUINF_ADR'
      Origin = '"MS_URL"."MSUINF_ADR"'
    end
    object intgrfldq1MSUINF_DESCR: TIntegerField
      FieldName = 'MSUINF_DESCR'
      Origin = '"MS_URL"."MSUINF_DESCR"'
    end
    object intgrfldq1MSUINF_FOTO: TIntegerField
      FieldName = 'MSUINF_FOTO'
      Origin = '"MS_URL"."MSUINF_FOTO"'
    end
    object intgrfldq1MSUINF_TEL: TIntegerField
      FieldName = 'MSUINF_TEL'
      Origin = '"MS_URL"."MSUINF_TEL"'
    end
    object intgrfldq1MSUINF_DIR: TIntegerField
      FieldName = 'MSUINF_DIR'
      Origin = '"MS_URL"."MSUINF_DIR"'
    end
    object intgrfldq1MSUINF_MAIL: TIntegerField
      FieldName = 'MSUINF_MAIL'
      Origin = '"MS_URL"."MSUINF_MAIL"'
    end
    object intgrfldq1MSUINF_KOLOTZ: TIntegerField
      FieldName = 'MSUINF_KOLOTZ'
      Origin = '"MS_URL"."MSUINF_KOLOTZ"'
    end
    object intgrfldq1MSUINF_KOLNEGATIV: TIntegerField
      FieldName = 'MSUINF_KOLNEGATIV'
      Origin = '"MS_URL"."MSUINF_KOLNEGATIV"'
    end
    object qUrlMSUINF_LASTDATE: TDateField
      FieldName = 'MSUINF_LASTDATE'
      Origin = '"MS_URL"."MSUINF_LASTDATE"'
    end
    object qUrlMSUINF_LASTNEGATIVDATE: TDateField
      FieldName = 'MSUINF_LASTNEGATIVDATE'
      Origin = '"MS_URL"."MSUINF_LASTNEGATIVDATE"'
    end
    object qUrlMSUNOTE: TIBStringField
      FieldName = 'MSUNOTE'
      Origin = '"MS_URL"."MSUNOTE"'
      Size = 2048
    end
    object qUrlMSUUSERENTER: TIBStringField
      FieldName = 'MSUUSERENTER'
      Origin = '"MS_URL"."MSUUSERENTER"'
      Size = 40
    end
    object qUrlMSUTIMEENTER: TDateTimeField
      FieldName = 'MSUTIMEENTER'
      Origin = '"MS_URL"."MSUTIMEENTER"'
    end
    object qUrlMSUUSEREDIT: TIBStringField
      FieldName = 'MSUUSEREDIT'
      Origin = '"MS_URL"."MSUUSEREDIT"'
      Size = 40
    end
    object qUrlMSUTIMEEDIT: TDateTimeField
      FieldName = 'MSUTIMEEDIT'
      Origin = '"MS_URL"."MSUTIMEEDIT"'
    end
    object intgrfldq1MSUISDELETE: TIntegerField
      FieldName = 'MSUISDELETE'
      Origin = '"MS_URL"."MSUISDELETE"'
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 347
    Top = 118
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 30'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1'
      '')
    GeneratorField.Field = 'SDID'
    Left = 384
    Top = 120
    object intgrfldSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object intgrfldSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object intgrfldSDSDISDELETE: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object dxmdt1: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F020000000400000003000300696400000100000100
      05006E616D650001FEFFFFFF0107000000CDE5E2E5F0EDEE01FFFFFFFF010A00
      0000CDE5E2EEE7ECEEE6EDEE0100000000010B000000CEF2F1F3F2F1F2E2F3E5
      F201010000000109000000CFF0E0E2E8EBFCEDEE}
    SortOptions = []
    Left = 440
    Top = 152
    object intgrflddxmdt1id: TIntegerField
      FieldName = 'id'
    end
    object strngflddxmdt1name: TStringField
      FieldName = 'name'
      Size = 256
    end
  end
  object ds1: TDataSource
    DataSet = dxmdt1
    Left = 403
    Top = 150
  end
end
